' Gadgets Example Number 2
'
LINE(36,28)-(92,42),1,b     ' Draw Gadget
LOCATE 5,7:PRINT"Quit"      ' Insert Text
OK=0                        ' Set Flag=0
WHILE OK=0                  ' Test Flag Each Loop
  WHILE MOUSE(0)=0:WEND     ' Wait for Click
  x=MOUSE(1):y=MOUSE(2)     ' Get x and y Coordinates
  IF x>36 AND x<92 THEN     ' Check x coordinates
    IF y>28 AND y<42 THEN   ' Check y coordinates
      OK=1                  ' Set Flag if in Gadget
    END IF
  END IF
WEND
LOCATE 1,1:PRINT "You did it!"
END